home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / matenc.arc / MATPGM.CMD < prev   
OS/2 REXX Batch file  |  1991-12-04  |  1KB  |  31 lines
  1.  MATPGM:     CMD        PROMPT('Materialize Object Program.')
  2.  
  3.              /*         MATPGM  Version 2 */
  4.              /*         Command processing program is CPP1570  */
  5.  
  6.              PARM       KWD(PGM) TYPE(QUAL) MIN(1) PROMPT('Program to +
  7.                           materialize:')
  8.              PARM       KWD(OUTFILE) TYPE(QUAL) MIN(1) PROMPT('File +
  9.                           name to receive template:')
  10.              PARM       KWD(OUTMBR) TYPE(*NAME) DFT(*PGM) +
  11.                           SPCVAL((*PGM)) EXPR(*YES) PROMPT('Member +
  12.                           name:')
  13.  
  14.              PARM       KWD(CRTFILE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  15.                           DFT(*YES) VALUES(*YES *NO) EXPR(*YES) +
  16.                           PROMPT('Create outfile: (*YES *NO)')
  17.  
  18.              PARM       KWD(ADDMBR) TYPE(*CHAR) LEN(4) RSTD(*YES) +
  19.                           DFT(*YES) VALUES(*YES *NO) EXPR(*YES) +
  20.                           PROMPT('Add member if non-existant:')
  21.              PARM       KWD(MBROPT) TYPE(*CHAR) LEN(9) RSTD(*YES) +
  22.                           DFT(*REPLACE) VALUES(*REPLACE *ADD) +
  23.                           EXPR(*YES) PROMPT('Data option--(*REPLACE, +
  24.                           *ADD):')
  25.  
  26.  QUAL:       QUAL       TYPE(*NAME) MIN(1) EXPR(*YES)
  27.              QUAL       TYPE(*NAME) DFT(*LIBL) EXPR(*YES) +
  28.                           SPCVAL((*LIBL)) PROMPT('Library name:')
  29.  
  30.              DEP        CTL(&CRTFILE *EQ *YES) PARM((&ADDMBR *EQ *YES))
  31.